home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / INV.ARC / LOOK.PRG < prev   
Text File  |  1985-12-21  |  640b  |  26 lines
  1.         CLEAR
  2.         SET INDEX TO IND
  3.         GO TOP
  4.         ? '                    Enter just enough info to identify the item.'
  5.         ?
  6.         ? '                          Capitalization Must be Correct.'
  7.         ?
  8.         ?
  9.         ACCEPT "Enter Item Name " to stuff
  10.         FIND &STUFF
  11.         IF EOF() = .T.
  12.         CLEAR
  13.         @ 12,23 SAY "Couldn't find that item"
  14.         ?
  15.         ?
  16.         ?
  17.  
  18.         WAIT
  19.         SET INDEX TO INV
  20.         RETURN
  21.         ELSE
  22.         EDIT
  23.         ENDIF
  24.         USE INV INDEX INV
  25.         RETURN
  26.